function [z]=maxabs(x,y)
 e=double(x)-double(y);
 z=max(abs(e));
